;:sys36864
	*= $8f00
	;.opt p,oo
;
; stack overflow error
; <c> nss
; 18/11/1985
;
; beispiel=  0 gosub 0
;
basi	= 160
temp	= 34
konf	= 1
	lda #55
	sta konf
	lda #basi
	sta temp+1
	ldy #0
	sty temp
	ldx #32
l	lda (temp),y
	sta (temp),y
	dey
	bne l
	inc temp+1
	dex
	bne l
	jsr change
	lda #54
	sta konf
	rts
change	lda #0
	sta 53280
	sta 53281
	lda #13
	sta 646
	lda #76
	sta $a3fb
	lda #<new
	sta $a3fc
	lda #>new
	sta $a3fd 
	 lda #$8f 
	 sta 56
	lda #<msg
	ldy #>msg
	jmp $ab1e
msg	.byte "message einsatzbereit"
	.byt 13
	.byte "<c> nicki heusler nss 18-11-1985"
	.byt 0
msh	.byte "stack overfloW"
new	asl
	adc #$3e
	bcs few
	sta $22
	tsx
	cpx $22
	bcc few
	rts
few	lda #<msh
	sta 34
	lda #>msh
	jmp $a445